home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / custom ls boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  43 lines
  1. 10 poke53281,241:poke53280,254
  2. 20 print"[147]"
  3. 30 print" [144][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  4. 40 mm$=" [221]                                    [221]":printmm$
  5. 50 print" {$7d}       Customizing LOADSTAR         [144]{$7d}"
  6. 60 print" {$7d}       [129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]         [144]{$7d}"
  7. 70 fora=1to15
  8. 80 printmm$
  9. 90 next
  10. 220 print" {$7d}   [156]Use Your CRSR [156]Keys To Move The   [144]{$7d}"
  11. 230 print" {$7d}  [154] SELECTOR BOX [155][146][187] [156]and press RETURN  [144]{$7d}"
  12. 240 print" {$7d}   [155][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]                   [144]{$7d}"
  13. 250 print" [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]"
  14. 260 print"";
  15. 300 a$(1)="        [195][207][204][207][210] [211][197][212][213][208]        ":f$(1)="color select"
  16. 302 a$(2)="       [208][210][201][206][212][197][210] [211][197][212][213][208]       ":f$(2)="print select"
  17. 303 a$(3)="       [196][197][198][193][213][204][212][160][211][197][212][213][208]       ":f$(3)="default setup"
  18. 304 a$(4)="     [210][197][212][213][210][206] [212][207] [204][207][193][196][211][212][193][210]    ":f$(4)="hello connect"
  19. 305 s$="                               "
  20. 310 p$=""
  21. 320 printp$;:forx=1 to 4
  22. 325 printa$(x)chr$(13)s$
  23. 330 next:x=1:gosub350:goto500
  24. 350 pt$="[154]"+a$(x)+"[146][155][187]"
  25. 355 pt$=pt$+chr$(13)+"[155][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  26. 400 return
  27. 500 printp$pt$
  28. 501 geta$:ifa$=""then501
  29. 502 if(a$=""ora$="[157]")and(x<4)then a=1:goto 600
  30. 503 if(a$="[145]"ora$="")and(x>1)then a=-1:goto 600
  31. 505 ifa$=chr$(13) then 800
  32. 550 goto 501
  33. 600 printp$"[144]"a$(x)" "chr$(13)s$
  34. 601 ifa=1 then p$=p$+""
  35. 602 ifa<1 then p$=left$(p$,len(p$)-2)
  36. 603 x=x+a:gosub 350
  37. 625 goto 500
  38. 800 poke53281,6:poke53280,6
  39. 850 print"[147]       [208]lease [215]ait [215]hile [204]oading..."
  40. 860 poke646,peek(53281)
  41. 861 print"load"+chr$(34)+f$(x)+chr$(34)+",8":print"run"
  42. 865 poke631,13:poke632,13:poke198,2:new
  43.